dofile("clavier.lua")
newClavier(C_CENTER,130)
texte = {}
texte[0] = ""
ligne = 0
cara = 0
voir = true

while not Keys.held.Start do
   Controls.read()
   tou = clavierHeld(Stylus.X,Stylus.Y)
   if Keys.newPress.A then voir = true end
   if Keys.newPress.X then voir = false end
   if tou == "ent" then
      ligne = ligne +1
      if ligne == 11 then
         for i = 0,9 do
            texte[i] = texte[i+1]
         end
         ligne = 10
      end
      cara = 0
      texte[ligne] = ""
   elseif tou == "del" then
      if cara > 0 then
         texte[ligne] = string.sub(texte[ligne],1,string.len(texte[ligne])-1)      
         cara = cara-1
      end
   elseif tou ~= "" then
      texte[ligne] = texte[ligne]..tou
      cara = cara +1
      if cara == 42 then
         ligne = ligne +1
         if ligne == 11 then
            for i = 0,9 do
               texte[i] = texte[i+1]
            end
            ligne = 10
         end
         cara = 0
         texte[ligne] = ""
      end
   end
   startDrawing()
   if voir then showClavier(DIR_HAUT,10,true)
   else showClavier(DIR_BAS,10,false) end
   for i = 0,ligne do
      screen.print(SCREEN_UP,0,9*i+9,texte[i])
   end
   screen.print(SCREEN_UP,cara*6,9*ligne+9,"_")
   screen.print(SCREEN_DOWN,0,0,"A = voir clavier  X = cacher clavier")
   screen.print(SCREEN_DOWN,0,9,"Start pour quitter")
   stopDrawing()
end

delClavier()
texte = nil
ligne = nil
cara = nil
voir = nil
tou = nil

